home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ozsi 8
/
Ozsi_08_1997_Tide_Side_A.d64
/
wriggle rtn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
53 lines
1 print"[147]":poke53281,10:poke53280,10
2 print" [213][195][195][195][178][195][195][195][195][201] [213][195][195][195][195][178][195][201]"
3 print" [194] [194] [194] [194] [194] [194]"
4 print" [194] [194] [213][195][195][203] [202][195][195][201] [194] [194]"
5 print" [194] [194] [194] [194] [194] [194]"
6 print" [202][195][195][195][203] [202][195][195][195][195][195][195][195][195][203] [202][195][203]"
7 print" readers read "
8 print" >> commodore - scene! << "
9 poke2020,20:poke2021,15:poke2022,13:poke2023,26
10 fort=49200to49420:reada:poket,a
20 c=c+a:next:ifc<>32291thengoto40
30 print"start with sys49200":end
40 print"data error!check yer data dude";c:end
100 data32,143,192,120,169,127,141
110 data13,220,173,13,220,169,27
120 data141,17,208,169,41,141,18
130 data208,169,90,141,20,3,169
140 data192,141,21,3,169,1,141
150 data25,208,141,26,208,88,96
160 data162,13,202,208,253,188,0
170 data207,189,0,206,136,208,253
180 data141,22,208,141,22,208,232
190 data224,66,208,236,162,8,202
200 data208,253,32,216,192,162,146
210 data236,18,208,208,251,169,200
220 data141,22,208,169,1,141,25
230 data208,76,49,234,162,0,160
240 data0,185,164,192,157,0,207
250 data232,200,192,8,144,244,224
260 data128,144,238,96,8,8,8
270 data8,8,8,8,1,203,203
280 data202,201,201,200,200,200,201
290 data201,202,203,204,205,205,206
300 data206,206,205,205,204,203,202
310 data201,201,200,200,200,201,201
320 data202,203,204,205,205,206,206
330 data206,205,205,204,203,0,2
340 data206,215,192,173,215,192,240
350 data1,96,169,2,141,215,192
360 data162,0,189,1,206,157,0
370 data206,232,224,80,208,245,238
380 data214,192,173,214,192,201,41
390 data208,5,169,0,141,214,192
400 data170,189,172,192,141,78,206
410 data96,0,0,0,0,0,0
420 rem *notice the first 7 lines are *
421 rem *wriggling,while the next 5 just
422 rem *slide from left to right.
423 rem *try using this in your next prg
424 rem *and if you are just starting to
425 rem *vote,then loose one for -tide-!
426 rem*'rulers of the southern oceans'